For this exercise install geojsonio package : install.packages(“geojsonio”)
1 > Reading as sp
library(leaflet)
library(geojsonio)
##
## Attaching package: 'geojsonio'
## The following object is masked from 'package:base':
##
## pretty
farms <- geojsonio::geojson_read("./bshr_sgmts.geojson", what = "sp")
# Or use the rgdal equivalent:
# farms <- rgdal::readOGR("./_12_DataVisualizationGisLeaflet/bshr_sgmts.geojson")
pal <- colorNumeric("RdBu", NULL)
m <- leaflet(data = farms, options = leafletOptions(maxZoom = 17)) %>%
addProviderTiles(providers$Esri.WorldImagery) %>%
addProviderTiles(providers$Stamen.TonerLines) %>%
addProviderTiles(providers$Stamen.TonerLabels) %>%
addPolygons(stroke = TRUE, weight = 1,
opacity = 1,
color = "white",
dashArray = "3",
fillOpacity = 0.7,
fillColor = ~pal(FA_acre),
label = farms$
Farm_ID) %>%
addLegend(pal = pal, values = ~FA_acre, opacity = 1.0)
m